home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / rcd / ribs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-06-10  |  9.8 KB  |  241 lines
  1. 1       ' This programme is used to design  SINGLE SPAN RIBS
  2. 2       ' This programme is prepared to design    SINGLE SPAN RIBS
  3. 3       ' This programme uses Advanced Basic Language  (IBM - BASICA )
  4. 4       ' This programme is saved under the name      [ RIBS ]
  5. 5       ' Prepared by   AMJAD J. SHAIR       23/12/1985
  6. 6  SCREEN 0,1 :WIDTH 40 :COLOR 15,1,0 :CLS :LOCATE 5
  7. 7  PRINT "       SINGLE SPAN RIBS DESIGN                                                            Prepared by :                                                                 AMJAD JAMIL EL-SHAIR "
  8. 8  LOCATE 25,5 :PRINT "PRESS SPACE BAR TO CONTINUE ";
  9. 9  Y$=INKEY$ :IF Y$<>" " THEN 9
  10. 10   '--------------------------------------------------------------- Basic Data
  11. 20  SCREEN 0,1 :WIDTH 80 :COLOR 15,1,0
  12. 30  CLEAR
  13. 40  OPEN "DATA1" FOR INPUT AS #1
  14. 50  IF EOF(1) THEN CLOSE :GOTO 110
  15. 60  INPUT #1,PRJ$,BLD$,DSR$,FC,FY,FYS,QA
  16. 70  GOTO 50
  17. 100  '---------------------------------------------------------- Ribs Dimensions
  18. 110  SCREEN 0,1 :WIDTH 80 :COLOR 15,1,0 :CLS :LOCATE 2
  19. 112  PRINT "          ****************************************************"
  20. 114  PRINT "          *   S I N G L E    S P A N   R I B   D E S I G N   *"
  21. 116  PRINT "          ****************************************************"
  22. 118  PRINT "          *******       RIBBED SLAB SYSTEMS MENU       *******"
  23. 120  PRINT "          ****************************************************"
  24. 122  PRINT :PRINT
  25. 124  PRINT "                  [ O ] - ONE WAY RIBBED SLAB SYSTEM      "
  26. 126  PRINT
  27. 128  PRINT "                  [ T ] - TWO WAY RIBBED SLAB SYSTEM      "
  28. 130  PRINT
  29. 132  PRINT "                  [ R ] - RETURN TO RCDESIGN MAIN MENU    "
  30. 134  PRINT
  31. 136  PRINT "          ENTER THE CHOSEN SYSTEM INITIALS SHOWN IN BRACKETS :";
  32. 138  RSC$=INKEY$ :IF RSC$<>"O" AND RSC$<>"o" AND RSC$<>"T" AND RSC$<>"t" AND RSC$<>"R" AND RSC$<>"r" THEN 138
  33. 140  IF RSC$="O" OR RSC$="o" THEN PRINT " ONE WAY RIBS "
  34. 142  IF RSC$="T" OR RSC$="t" THEN PRINT " TWO WAY RIBS "
  35. 144  IF RSC$="R" OR RSC$="r" THEN PRINT " RCDESIGN MENU" :CHAIN "RCDESIGN",2500
  36. 146  PRINT
  37. 148  INPUT "          ENTER  RIB  NUMBER                               : R ",NMB
  38. 150  PRINT
  39. 152  PRINT "          ENTER RIB TYPE NUMBER                               "
  40. 155  INPUT "    (the matching one specified by the RIBS LOADING prgm.) :  ",TNR
  41. 160  IF TNR <=0 GOTO 155
  42. 165  IF RSC$="O" OR RSC$="o" THEN ON TNR GOTO 175,195,215
  43. 170  IF RSC$="T" OR RSC$="t" THEN ON TNR GOTO 240,260,280
  44. 175  OPEN "OWRL1" FOR INPUT AS #1
  45. 180  IF EOF(1) THEN CLOSE :GOTO 310
  46. 185  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  47. 190  GOTO 180
  48. 195  OPEN "OWRL2" FOR INPUT AS #1
  49. 200  IF EOF(1) THEN CLOSE :GOTO 310
  50. 205  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  51. 210  GOTO 200
  52. 215  OPEN "OWRL3" FOR INPUT AS #1
  53. 220  IF EOF(1) THEN CLOSE :GOTO 310
  54. 225  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  55. 230  GOTO 220
  56. 240  OPEN "TWRL1" FOR INPUT AS #1
  57. 245  IF EOF(1) THEN CLOSE :GOTO 310
  58. 250  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  59. 255  GOTO 245
  60. 260  OPEN "TWRL2" FOR INPUT AS #1
  61. 265  IF EOF(1) THEN CLOSE :GOTO 310
  62. 270  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  63. 275  GOTO 265
  64. 280  OPEN "TWRL3" FOR INPUT AS #1
  65. 285  IF EOF(1) THEN CLOSE :GOTO 310
  66. 290  INPUT #1,BR,HR,HB,TT,PW,LL,WU
  67. 295  GOTO 285
  68. 310  D=HR-4 :B=BR :TF=HR-HB    'Effective depth ,Width,&Flange Thickness of Rib
  69. 320  GOSUB 2100        ' To find Section Stresses and Reinforcement Limitations
  70. 400  '----------------------------------------------------- Rib Span & Load Data
  71. 410  CLS :LOCATE 2,8
  72. 420  PRINT "********  SINGLE SPAN RIB DESIGN  -  RIB : R"NMB " ********"
  73. 430  PRINT
  74. 440  PRINT "   Concrete Crushing Strength  f'c ="FC" kg/cm2  "
  75. 450  PRINT "   Reinf' Steel Yield Stress   fy  ="FY" kg/cm2  "
  76. 460  PRINT
  77. 470  PRINT "   Rib Dimensions : b (width)="BR" cm  , h (thickness)="HR" cm"
  78. 480  PRINT
  79. 490  INPUT "   ENTER  SPAN LENGTH                L      (m) ", L
  80. 500  IF L>0 GOTO 560
  81. 510  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  82. 520  PRINT "  ****  YOU CAN'T HAVE A RIB WITH ZERO SPAN LENGTH  ****  "
  83. 530  COLOR ,1:PRINT
  84. 540  INPUT "          DO YOU WHANT TO RE-ENTER ?         (Y/N) ",Y$
  85. 550  IF Y$="Y" GOTO 410 ELSE GOTO 1810
  86. 560  INPUT "   ENTER  ULTIMATE  LOAD INTENSITY   W  (ton/m) ", W
  87. 570  IF W>0 GOTO 710
  88. 580  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  89. 590  PRINT "  *****  YOU CAN'T HAVE A RIB WITH ZERO LOADING  *****  "
  90. 600  COLOR ,1:PRINT
  91. 610  INPUT "          DO YOU WHANT TO RE-ENTER ?         (Y/N) ",Y$
  92. 620  PRINT
  93. 630  IF Y$="Y" GOTO 410 ELSE GOTO 1810
  94. 700  '------------------------------------------ Calculation of Moments & Reinf'
  95. 710  MU1=W*L^2/8 :PRINT
  96. 720  MU=MU1
  97. 730  IF MU1>MU(MAX.) GOTO 820
  98. 740  PRINT "   Mu+ = W*L^2/8 = "MU1" t.m  <  Mu (max.) ="MU(MAX.)" t.m"
  99. 750  GOSUB 2000
  100. 760  AS1=AS
  101. 770  IF AS <AS(MIN.)  GOTO 800
  102. 780  PRINT "   As (required) = "AS" cm2  >  As (min.) ="AS(MIN.)" cm2"
  103. 790  GOTO 920
  104. 800  PRINT "   As (required) = "AS" cm2  <  As (min.) ="AS(MIN.)" cm2"
  105. 810  AS=AS(MIN.):GOTO 920
  106. 820  B=BR+40
  107. 830  PRINT "   Mu+ = W*L^2/8 = "MU1" t.m  >  Mu (max.) ="MU(MAX.)"t.m" :PRINT "                   USE FULL WIDTH OF RIB   b = "B" cm"
  108. 840  GOSUB 2000
  109. 850  IF AC<TF GOTO 880
  110. 860  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  111. 865  PRINT "  ***  THIS RIB SECTION IS NOT ADEQUATE FOR THE REQUIRED SPAN & LOADING  ***      ***                   CHANG RIB SECTION DIMENTIONS                     ***    "
  112. 870  COLOR ,1:PRINT :GOTO 1800
  113. 880  PRINT "   CHECK : "
  114. 890  PRINT "   Depth of compression block (a) ="AC" < Flange thickness ="TF" cm"CHR$(13)"   The Rib is a rectanguler section whose Width ="B" cm ,Height ="HR" cm"
  115. 900  PRINT "   As (required) = "AS" cm2"
  116. 910  AS1=AS :AC1=AC
  117. 920  DIA1=2+2*INT(SQR(4*100*AS/(1.05*3.14159*2))/2)
  118. 922  IF DIA1=24 THEN DIA1=25
  119. 930  ASP1=2*3.14159*(DIA1/10)^2/4
  120. 940  PRINT :LOCATE ,4: COLOR 0,4
  121. 950  PRINT "USE  [ 2 "CHR$(237);DIA1 " mm ]  Bottom reinf' ,    As (provided) ="ASP1" cm2"
  122. 960  COLOR 15,1 :PRINT
  123. 970  MU2 =W*L^2/24
  124. 980  MU=MU2 :B=BR :PRINT
  125. 990  PRINT "   Mu- = W*L^2/24 = "MU2" t.m  <  Mu (max.) ="MU(MAX.)" t.m"
  126. 1000  GOSUB 2000
  127. 1010  AS2=AS
  128. 1020  IF AS <AS(MIN.)  GOTO 1050
  129. 1030  PRINT "   As (required)  = "AS" cm2  >  As (min.) ="AS(MIN.)" cm2"
  130. 1040  GOTO 1070
  131. 1050  PRINT "   As (required)  = "AS" cm2  <  As (min.) ="AS(MIN.)" cm2"
  132. 1060  AS=AS(MIN.)
  133. 1070  DIA2=2+2*INT(SQR(4*100*AS/(1.05*3.14159*2))/2)
  134. 1080  ASP2=2*3.14159*(DIA2/10)^2/4
  135. 1090  PRINT :LOCATE ,4: COLOR 0,4
  136. 1100  PRINT "USE  [ 2 "CHR$(237);DIA2 " mm ]     Top reinf' ,    As (provided) ="ASP2" cm2"
  137. 1110  COLOR 15,1 :PRINT
  138. 1200  '---------------------------------------------------- Print Data & Results
  139. 1210  PRINT :PRINT "  ***   DO YOU WANT THIS RIB DESIGN TO BE PRINTED  (Y/N) ?  ***";
  140. 1215  Y$=INKEY$ :IF Y$="" THEN 1215
  141. 1220  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :GOTO 1230
  142. 1222  IF Y$="N" OR Y$="n" THEN PRINT "  NO " :GOTO 1800
  143. 1225  GOTO 1200
  144. 1230  H$=STRING$(79,61)
  145. 1235  IF FY<=3000 THEN BRDA$=CHR$(239)+CHR$(8)+CHR$(47) ELSE BRDA$=CHR$(111)+CHR$(8)+CHR$(84)
  146. 1240  LPRINT
  147. 1245  LPRINT CHR$(14)"Arabian Consulting Engineering Services"
  148. 1250  LPRINT "P. O. Box  146                                           Riyadh - Saudi Arabia"
  149. 1255  LPRINT H$
  150. 1260  LPRINT CHR$(14)" PROJECT: "PRJ$
  151. 1265  LPRINT
  152. 1270  LPRINT "  BUILDING    : "BLD$ TAB(58)"PAGE No.:"
  153. 1275  LPRINT "  DESIGNED BY : "DSR$ TAB(31)"/ CHECKED BY : "TAB(58)"DATE    : "DATE$
  154. 1280  LPRINT :LPRINT H$
  155. 1285  LPRINT "  RCDESIGN PROGRAM PREPARED BY : Amjad J.El-Sha'ir, P.O.Box 926447 Amman-Jordan"
  156. 1290  LPRINT "  THIS COPY TO BE USED ONLY BY : Arabian Consulting Engineering Services  K.S.A"
  157. 1295  LPRINT H$
  158. 1300  LPRINT CHR$(14) " SINGLE SPAN RIBS "TAB(32)"RIB: R"NMB
  159. 1310  LPRINT H$ :LPRINT
  160. 1320  LPRINT CHR$(27)"G";
  161. 1330  LPRINT "  ** CONCRETE & STEEL PROPERTIES **  "
  162. 1340  LPRINT CHR$(27)"H";"  ---------------------------------  "
  163. 1350  LPRINT "   - Concrete Crushing Strength  f'c ="FC" kg/cm2  "
  164. 1360  LPRINT "   - Reinf' Steel Yield Stress   fy  ="FY" kg/cm2  "
  165. 1370  LPRINT CHR$(27)"G"
  166. 1380  LPRINT "  ** RIB SECTION DIMENSIONS **  "
  167. 1390  LPRINT CHR$(27)"H";"  ----------------------------  "
  168. 1400  LPRINT "   - Width   b  = "BR" cm" TAB(40) "   - Flange Thickness tf = "TF" cm "
  169. 1410  LPRINT "   - Height  h  = "HR" cm" TAB(40) "   - Effective Depth  d  = "D" cm "
  170. 1420  LPRINT :LPRINT H$
  171. 1430  LPRINT
  172. 1440  LPRINT "  Max. Sect. Capacity Ku ="KU(MAX.) TAB(40) " Max. Moment Capacity Mu ="MU(MAX.)" t.m"
  173. 1450  LPRINT "  Min. Steel Ratio    Ps ="PS(MIN.) TAB(40) " Max. Steel Ratio     Ps ="PSX(MAX.)
  174. 1460  LPRINT "  Min. Steel Area     As ="AS(MIN.)" cm2" TAB(40) " Max. Steel Area      As ="ASX(MAX.)" cm2"
  175. 1470  LPRINT :LPRINT H$
  176. 1480  LPRINT :LPRINT
  177. 1490  LPRINT "  RIB LOADING      W  =  "W" t/m"
  178. 1500  LPRINT "  RIB SPAN LENGTH  L  = "L" m"
  179. 1510  LPRINT :LPRINT
  180. 1520  IF MU1>MU(MAX.) GOTO 1590
  181. 1530  LPRINT "   Mu+ = W*L^2/8 = "MU1" t.m  <  Mu (max.)"
  182. 1540  IF AS1<AS(MIN.)  GOTO 1570
  183. 1550  LPRINT "   As (required) = "AS1" cm2  >  As (min.)"
  184. 1560  GOTO 1660
  185. 1570  LPRINT "   As (required) = "AS1" cm2  <  As (min.)"
  186. 1580  GOTO 1660
  187. 1590  B=BR+40
  188. 1600  LPRINT "   Mu+ = W*L^2/8 = "MU1" t.m  >  Mu (max.)
  189. 1610  LPRINT :LPRINT "  The Width of Rib Section is not adequate , Use full width of flange "B" cm"
  190. 1620  LPRINT :LPRINT "  Check : "
  191. 1630  LPRINT "   Depth of compression block (a) ="AC1"cm < Flange thickness" CHR$(13)"   THE RIB IS A RECTANGULER SECTION WHOSE WIDTH ="B" cm ,HEIGHT ="HR" cm"
  192. 1640  LPRINT
  193. 1650  LPRINT "   As (required) = "AS1" cm2"
  194. 1660  LPRINT CHR$(27) "G"
  195. 1670  LPRINT "  USE  [ 2 "BRDA$;DIA1 " mm ]    Bottom reinf' ,      As (provided) ="ASP1" cm2"
  196. 1680  LPRINT CHR$(27) "H":LPRINT
  197. 1690  LPRINT "   Mu- = W*L^2/24 = "MU2" t.m  <  Mu (max.)"
  198. 1700  IF AS2<AS(MIN.)  GOTO 1730
  199. 1710  LPRINT "   As (required)  = "AS2" cm2  >  As (min.)"
  200. 1720  GOTO 1740
  201. 1730  LPRINT "   As (required)  = "AS2" cm2  <  As (min.)"
  202. 1740  LPRINT CHR$(27) "G"
  203. 1750  LPRINT "  USE  [ 2 "BRDA$;DIA2 " mm ]       Top reinf' ,      As (provided) ="ASP2" cm2"
  204. 1760  LPRINT CHR$(27) "H":LPRINT CHR$(12)
  205. 1800  '--------------------------------------------------- Design for other Ribs
  206. 1810  PRINT :PRINT "  ***   DO YOU HAVE OTHER RIBS TO DESIGN           (Y/N) ?  ***";
  207. 1820  Y$=INKEY$ :IF Y$="" THEN 1820
  208. 1830  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :GOTO 10
  209. 1840  IF Y$="N" OR Y$="n" THEN PRINT "  NO" :PRINT :PRINT "     [  YOU WILL BE SEND BACK TO THE  RCDESIGN MAIN MENU   ]  " :CHAIN "RCDESIGN",2500
  210. 1850  GOTO 1800
  211. 1900  END
  212. 2000  '------------------------------------ SUBROUTINE To Find The Reinforcement
  213. 2010  WC=(1-SQR(1-2.36*MU*100000/(B*D^2*0.9*FC)))/1.18
  214. 2020  AC=(WC/0.85)*D       'depth of compression Whitny Block
  215. 2030  CC=AC/0.85           'depth of nutral axis
  216. 2040  PS=WC*FC/FY              'steel ratio
  217. 2050  AS=PS*B*D                'area of steel reinf'
  218. 2060  RETURN
  219. 2100  '----------------------- SUBROUTINE To find Section and Reinf' Limitations
  220. 2110  PSX(MAX.)=0.75*(4400/(FY+6090))*FC/FY        '  Max. Ratio of Reinf'
  221. 2120  WC(MAX.)=PSX(MAX.)*FY/FC
  222. 2130  ASX(MAX.)=PSX(MAX.)*BR*D
  223. 2140  KU(MAX.)=0.9*FC*WC(MAX.)*(1-0.59*WC(MAX.))
  224. 2150  AC(MAX.)=WC(MAX.)*D/0.85                'Depth of comp. Whitny Block
  225. 2160  CC(MAX.)= AC(MAX.)/0.85                 'Depth of Nutral Axis
  226. 2170  JU(MAX.)=(1-0.59*WC(MAX.))*D                 'Liver Arm
  227. 2180  MU(MAX.)=KU(MAX.)*BR*D^2/100000            'Max. Moment Capacity of Rib
  228. 2190  PS(MIN.)=14/FY
  229. 2200  AS(MIN.)=PS(MIN.)*BR*D
  230. 2210  PSX(MAX.)=(CINT(PSX(MAX.)*10000))/10000
  231. 2220  WC(MAX.)=(CINT(WC(MAX.)*100))/100
  232. 2230  ASX(MAX.)=(CINT(ASX(MAX.)*100))/100
  233. 2240  KU(MAX.)=(CINT(KU(MAX.)*100))/100
  234. 2250  AC(MAX.)=(CINT(AC(MAX.)*100))/100
  235. 2260  CC(MAX.)=(CINT(CC(MAX.)*100))/100
  236. 2270  JU(MAX.)=(CINT(JU(MAX.)*100))/100
  237. 2280  MU(MAX.)=(CINT(MU(MAX.)*100))/100
  238. 2290  PS(MIN.)=(CINT(PS(MIN.)*10000))/10000
  239. 2300  AS(MIN.)=(CINT(AS(MIN.)*100))/100
  240. 2310  RETURN
  241.